home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / vb / view_vb.exe / VIEWCALL.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-01-27  |  410 b   |  13 lines
  1. Sub DCheck ()
  2. 'Checks to see if more space needs to be added at the end of the display
  3. 'Call this routine each time you print to the Display.
  4.     Static t1 As Single, t2 As Single
  5.     On Error Resume Next
  6.     t1 = Displayer!Display.TextHeight("T") * 5
  7.     t2 = Displayer!Display.Height
  8.     If Displayer!Display.CurrentY > t2 - t1 Then
  9.         Displayer!Display.Height = t2 + t1
  10.     End If
  11. End Sub
  12.  
  13.